home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / tweenTests / SolidCylinder2.wwModel / model.eve < prev   
Encoding:
Text File  |  1995-03-22  |  707 b   |  21 lines

  1. # note that $modelPath is automagically set to be the complete path
  2. # name of whereever this .mdl file wrapper is located
  3. #
  4. source $modelPath/initialDefines.eve
  5.  
  6. # note that since "source" is a built-in tcl command, we needed to
  7. # give it the full path name of the previous file so it could load it.
  8. # In the next command, though, since "loadControlPanel" is a new eve
  9. # command, it is smart enough to append the value of $modelPath to any
  10. # file that doesn't start with "/"
  11. #
  12. loadControlPanel controls.nib
  13. loadControlPanel animation.nib
  14.  
  15. startShape dynamicExample
  16.   EveCmd {Rotate $roll 1 0 0}
  17.   Disk $zMin $radius $thetaMax
  18.   Cylinder $radius $zMin $zMax $thetaMax
  19.   Disk $zMax $radius $thetaMax
  20. endShape
  21.